Know Your Baseball - The Greatest Player Resource/Know Your Baseball - Greatest Player.iso/Baseball/Director/SHARED.CST/00003_Script_House Keeping Functions

Text File | 1998-09-21 | 2KB | 80 lines

--                                         house keeping functions                                      --
Global gControls, gMode

on setSprites
  repeat with x = 10 to 48
    puppetSprite(x),not the puppet of sprite(x) -- toggles puppet sprites on and off
  end repeat
end

on setSpritesSml
  repeat with x =10 to 11
    puppetSprite(x),not the puppet of sprite(x) -- toggles puppet sprites on and off
  end repeat
end

on  setspritesKTG
  repeat with x =40 to 48
    puppetSprite(x),not the puppet of sprite(x) -- toggles puppet sprites on and off
  end repeat
end


on GoHome
  go "1EXIT"
  go movie "home"

end

on GoRed
  Global gRegAll, gRegSkill
  go "1EXIT"
  if gRegAll > 0 or gRegSkill > 0 then
    puppetsound 0
    CleanRoutine
    go frame "1SSQR" of  Movie  "home"
    MsetHomeMenu(gcontrols)
    dontpassevent
  else
    go to "regSkills" of movie "register"
  end if
end




on GoYellow
  Global gRegAll, gRegSkill
  go "1EXIT"
  if gRegAll > 0 or gRegSkill > 0 then
    puppetsound 0
    CleanRoutine
    go frame "1SSQY" of  Movie  "home"
    MsetDilbert(gcontrols)
    dontpassevent
  else
    go "1Exit"
    go to "regSkills" of movie "register"
  end if
end

--- keep the memory clear and keep flags correct by reseting them
-- except for a few globals I want to keep!!!
on CleanRoutine
  --  put "clean" & gMode
  if gMode < 2  then

    ClearMostGlobals

  end if
  unload -- use test of memory to trigger so it is only used when neccessary
end





on StopMovie
  puppetSound 0
end